100 FOR X = 49152 TO 49488:READY:S=S+Y 110 IF Y<0 OR Y>255 THEN 130 120 POKE X,Y:NEXT:GOTO140 130 PRINT"[147]**ERROR**":PRINT"PLEASE CHECK LINE"PEEK(64)*256+PEEK(63):END 140 IF S<>44677 THEN PRINT"[147]**ERROR**":PRINT"PLEASE CHECK DATA LINES 170-500":END 150 PRINT"[147]":POKE53280,0:POKE53281,6:POKE646,1 160 PRINT" C-64 BUG REPELLENT INSTALLED " 170 DATA32,161,192,165,43,133,251,165,44,133 180 DATA252,160,0,132,254,32,37,193,234,177 190 DATA251,208,3,76,138,192,230,251,208,2 200 DATA230,252,76,43,192,76,73,78,69,32 210 DATA35,32,0,169,35,160,192,32,30,171 220 DATA160,0,177,251,170,230,251,208,2,230 230 DATA252,177,251,32,205,189,169,58,32,210 240 DATA255,169,0,133,253,230,254,32,37,193 250 DATA234,165,253,160,0,76,13,193,133,253 260 DATA177,251,208,237,165,253,41,240,74,74 270 DATA74,74,24,105,65,32,210,255,165,253 280 DATA 41,15,24,105,65,32,210,255,169,13 290 DATA32,220,192,230,63,208,2,230,64,230 300 DATA251,208,2,230,252,76,11,192,169,153 310 DATA160,192,32,30,171,166,63,165,64,76 320 DATA231,192,96,76,73,78,69,83,58,32 330 DATA0,169,247,160,192,32,30,171,169,3 340 DATA133,254,32,228,255,201,83,240,6,201 350 DATA80,208,245,230,254,32,210,255,169,4 360 DATA166,254,160,255,32,186,255,169,0,133 370 DATA63,133,64,133,2,32,189,255,32,192 380 DATA255,166,254,32,201,255,76,73,193,96 390 DATA32,210,255,173,141,2,41,1,208,249 400 DATA96,32,205,189,169,13,32,210,255,32 410 DATA204,255,169,4,76,195,255,147,83,67 420 DATA82,69,69,78,32,79,82,32,80,82 430 DATA 73,78,84,69,82,32,63,32,0,76 440 DATA44,193,234,177,251,201,32,240,6,138 450 DATA113,251,69,254,170,138,76,88,192,0 460 DATA0,0,0,230,251,208,2,230,252,96 470 DATA170,177,251,201,34,208,6,165,2,73 480 DATA255,133,2,165,2,208,218,177,251,201 490 DATA32,208,212,198,254,76,29,193,0,169 500 DATA13,76,210,255,0,0,0